C++ Grafik: "Peano01"

Peanokurven programmiert mit Init() und draw().

Script mit Doppelklick oder STRG+R aufrufen!
____________________________________________


ScriptBegin
 var Grafik = "Peano";

 var option = 0;   //0 mit Verfeinerung
                   //2 ohne Verfeinerung
 var Pen1 = "black";
 var PenW =  0.25;
 var BackBrush ="#6f7f8f";
 var FillBrush ="#fd0000"; // "cadetblue"; 
 var l = 4.8;
 var x0=0;
 var y0=0;


function init()
{ t.setPage(0,195,4); t.setMargin(2,2);
  t.setBrush(BackBrush); 
}


function draw()
{ setFigur();
  t.goTo(12,3); t.turnTo(0);
  t.setPen(Pen1,PenW,1);
  t.setBrush(FillBrush); 

  t.drawPolygon();
}


function setFigur()
{ t.setNoStyle();
  t.beginPolygon();

  t.goTo(x0,y0); t.turnTo(90);

  t.D(2,l*1.21); // Kurve A(Ordnung, Lnge)
  t.D(1,l*0.85 );  t.turnTo(0);   t.move(l+l);

  t.A(2,l*0.55); t.turn(-90); t.move(l);

  t.D(2,l*0.24);  t.turn(-90); t.move(l*0.5);
  t.B(1,l*0.4); t.turn(90);  t.move(l);
  t.B(1,l*1.55); t.turn(0); t.move(50);
  t.turn(-90);t.move(50);

  t.moveTo(x0,t.lastY());
  t.moveTo(x0,y0);
  t.endPolygon(); 
}

ScriptEnd#

